Public Class PasswordGenerator

    Public Shared Function GeneratePassword() As String

        Dim baseKey As String = Guid.NewGuid().ToString()

        Dim password As String = baseKey.Substring(0, 8)

        Return password

    End Function

End Class
